home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 00 / 5 / DISK0052.ZIP / PATCH256.ASC < prev    next >
Text File  |  1983-03-29  |  2KB  |  45 lines
  1. 10 'PATCH 256 by Tim Fields   June 13,1982
  2. 20 '      This program will patch various printer configurations into
  3. 30 '      PR256 code. This permits the user to have both Epson graphics
  4. 40 '      printers and non-graphics printers used properly on the same
  5. 50 '      system. It also patches in the default CONTROL code mode.
  6. 60 CLS:KEY OFF:BASEADDR=525
  7. 70 PRINT :PRINT :INPUT "Name of file containing PR256 program <PR256.EXE>";PGM$
  8. 80 IF LEN(PGM$)=0 THEN PGM$="PR256.EXE"
  9. 90 IF ((INSTR(PGM$,".EXE")=0) AND (INSTR(PGM$,".exe")=0)) THEN PGM$=PGM$+".EXE"
  10. 100 OPEN PGM$ FOR INPUT AS 1:CLOSE 1
  11. 110 OPEN PGM$ AS 1 LEN=1:FIELD 1,1 AS ALUE$
  12. 120 PRINT:INPUT "Which printer do you want to update (0,1,2)";PRNUMB
  13. 130 IF ((PRNUMB<0) OR (PRNUMB>2)) THEN PRINT "Invalid printer number":GOTO 120
  14. 140 PNMB = BASEADDR + (PRNUMB*6)
  15. 150 PRINT "Does printer";PRNUMB;
  16. 160 INPUT "contain Epson bit image capability (Y/N)";YN$
  17. 170 IF YN$="N" OR YN$="n" THEN GOTO 400
  18. 180 IF YN$<>"Y" AND YN$<>"y" THEN GOTO 150
  19. 190 'If the printer selected has the bit image capability, we need to set
  20. 200 'up the CONTROL character mode used by PR256.
  21. 210 CLS:PRINT :PRINT :PRINT
  22. 220 PRINT "PR256 has three different methods for handling control characters:"
  23. 230 PRINT :PRINT
  24. 240 PRINT "    1.  `Pass them thru - This mode sends any CONTROL character"
  25. 250 PRINT "         on to the printer as a control character. This mode"
  26. 260 PRINT "         allows full user access to all Epson modes and functions."
  27. 270 PRINT
  28. 280 PRINT "    2.  `Print it out' - This mode interprets any CONTROL character"
  29. 290 PRINT "         as a printing character. It allows no control codes to be"
  30. 300 PRINT "         sent to the Epson."
  31. 310 PRINT
  32. 320 PRINT "    3.  `Print all but CR & LF' - This mode sees only ASCII 13 and"
  33. 330 PRINT "         ASCII 10 (carriage return and line feed) as valid CONTROL"
  34. 340 PRINT "         codes. All other CONTROL characters are assumed to be"
  35. 350 PRINT "         printing characters."
  36. 360 PRINT :PRINT :PRINT
  37. 370 PRINT "What mode should printer";PRNUMB;:INPUT"be set into (1,2,3)";PRMODE
  38. 380 IF PRMODE<1 OR PRMODE>3 THEN GOTO 370
  39. 390 GET 1,PNMB:LSET VALUE$=CHR$(PRMODE-1):PUT 1,PNMB
  40. 400 IF YN$="Y" OR YN$="y" THEN YNVAL = 0 ELSE YNVAL=1
  41. 410 GET 1,PNUMB+1:LSET VALUE$=CHR$(YNVAL):PUT 1,PNUMB+1
  42. 420 PRINT :INPUT "Any more configurations (Y/N)";YN$
  43. 430 IF YN$="Y" OR YN$="y" THEN GOTO 120
  44. 440 CLOSE : SYSTEM
  45.